[PATCH] <short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

Gbp-Pq: Name Version_2_6_15pre20

diff --git a/git.tag b/git.tag
index 07737b0314832ee25d7ea3154d603900374569ad..f5f6d58ab4d000b4dc627ce4a1b016f4e312e06e 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_6_15pre19"
+"Version_2_6_15pre20"

diff --git a/lsp/gcl_make_pathname.lsp b/lsp/gcl_make_pathname.lsp
index 68808f6cc87f8329f2c690a07dc29abe2fd93166..c8b947cbde8b18d17af7692e2e95541630a0fc2b 100644 (file)
--- a/lsp/gcl_make_pathname.lsp
+++ b/lsp/gcl_make_pathname.lsp
@@ -25,7 +25,7 @@
                                                  (string-concatenate "(" (substitute #\^ #\! (subseq x 0 2)) (subseq x 2) ")")))
                                          (cons #v"\\*" (lambda (x) #.(ads "([^/.]*)")))
                                          (cons #v"\\?" (lambda (x) #.(ads "([^/.])")))
-                                         (cons #v"\\." (lambda (x) "\\."))))
+                                         (cons #v"[+|.^$()]" (lambda (x) (string-concatenate "\\" x)))))
 
 (defconstant +physical-pathname-defaults+ '(("" "" "")
                                            #+winnt("" "([A-Za-z]:)?" ":") #-winnt("" "()" "")